home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / dev / misc / BoulderEngine.lha / source / LEVELS.C < prev    next >
Encoding:
Text File  |  1998-03-30  |  331 b   |  22 lines
  1. /* ====================================
  2.    == BOULDER2 CAVES DATA TRANSFER   ==
  3.    == ©1993-5 by SAVELSOFT inc.      ==
  4.    ==================================== */
  5.  
  6. level(n)
  7. SHORT n;
  8. {
  9. SHORT i;
  10. setlevel(n);
  11. for(i=0;i<780;i++)
  12.  {
  13.   ek[i]=database(i);
  14.  }
  15. TIM=ssda(1);
  16. CRISTAL=ssda(2);
  17. HMAGMA=ssda(3);
  18. ITEMS=ssda(4);
  19. BONUS=ssda(5);
  20. }
  21.  
  22.